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Il computer, oltre che al registratore, può anche essere 
collegato all'unirà a disco; in questo lezione ne vedremo 
l'utilizzo. 

Il disco svolge la stesso funzione del registratore; cioè 
conservo programmi e doti anche quando il computer viene 
spento. 

I vantaggi del disco in rapporto al registratore sono: 

1 ) Uno velocità di trasferimento dati 10 volte maggiore 

2) Il nostro per essere letto o registrato deve essere 
posizionato manualmente, mentre l'unità a disco ricerca 
automaticamente i programmi o gli spazi ancoro liberi di 
memoria. 

3) Uno maggiore affidabilità di lettura e di registrazione dei 
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La prima operazione da compiere per l'utilizzo di un disco è 
quella di formattarlo, visto che all'inizio il disco è vergine. 

La FORMATTAZIONE serve per suddividere il disco in tracce e 
settori che serviranno al computer per potersi orientare a 
rintracciare i doti. Ricorda di non formattare mai un disco già 
inciso, perchè in questo modo verrebbero cancellati tutti i 
dati già memorizzati. 

Per formattarlo, quindi, basta inserirlo nel drive e scrivere il 
seguente comando: OPEN1 r 8„15, "N:nome discojd" poi 
battere il tosto Return e infine, quando il led rosso del drive 
si è spento, scrivere: CLOSE1 e premere il Return. 

Compiuto lo formattazione il disco è pronto per l'uso. 
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Sul disco possono essere 
registrati, coricati e verificati 
i programmi con le stesse 
istruzioni usate per lo cassetto. 

Cioè: SAVE"nome prg. rr , LOAD"nome prg.' 

VEKIRT'nome prg/', solo che dopo gli apici 
deve essere aggiunto, 8 per indicare al computer 
di compiere l'operazione sul disco e non sullo cassetto. 

Così, od esempio, per registrare su disco un programma 

basterà scrivere: SAVE"nome prg. r, ,8 

Ricorda che nell'uso del disco è obbligatorio mettere il nome 

del programma, questo servirà al computer per poterlo 

ricercare. 

Naturalmente sullo stesso disco non potranno esistere due 
programmi con lo stesso nome, altrimenti il computer non 
saprebbe a quale riferirsi. 
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In qualsiasi momento 
è possibile conoscere 
i nomi dei programmi 
contenuti in un disco 
scrivendo: LOAD"$ r, ,8 
e premere il Return. 
Poi scrivere LIST e 
premere nuovamente 
il Return. 
A questo punto sul video 
comparirà lo DIRECTORY 
(o catalogo) del dischetto, 
cioè l'elenco di tutti i 
programmi memorizzati sul disco. 
Il nunhero a sinistra di ogni nome indicherà lo lunghezza, in 
blocchi, del programmo corrispondente. Nell'ultimo rigo 
invece verrà mostrato il numero dei blocchi ancoro liberi. 
Tieni presente che ogni blocco corrisponde a 25ó bytes ( 1 /4 
di K) e che un floppy contiene 664 blocchi, cioè circo 170 K 

di memoria. 



Listato dell'esercizio: 
ESEMPIO PRATICO (CDM 64) 


10 

poKe53230,6 :poKe53281,6 

100 

tory =0t o q —lstept 

£0 

y = 1024 !c =55296 s t =3 !q=40: 1=24 

1 10 

p =x *q+y 

30 

print"9" 

120 

poKev+p,160 :poKec + p 

40 

forx=0to1 

130 

nexty 

50 

ifx/'t < >int <x/t )then 100 

140 

nextx 

60 

tory =0t o q- 1 

150 

toru = lto3000:nextu 

70 

p =x*q+y 

160 

print"a" 

80 

poKey+p , 160spoKec+p,7 



90 

nexty 




Listato dell'esercizio: 

ESEMPIO PRATICO (VIC 20) 

10 poKe36879,110 

20 v =7680 :c =38400 1 t =3 :q=2£: 1=21 
30 print"3" 

40 forx=01ol 

50 it x/'t < > int (x/t )then 100 
60 tory=0toq-l 
70 p=x*q+y 

80 poKev+p , 160:poKec+p,7 
90 nexty 

100 t or y =0toq- lstept 
110 p =x *q+y 

120 poKev+p,160spoKec+p,7 
130 nexty 
140 nextx 

150 toru = lto3000!nextu 
160 pr int "3" 

Listoto dell'esercizio: 
COMPLETA IL LISTATO (CDM 64) 

10 poKe53£30,2 :poKe53£81 ,2 

£0 printchr$(147)sC* 3 = 1024 :c=55296 

30 torx=C*3tol9 

40 C* 3=x*40+19-x 

50 poKey+p ,223 !pokec+p ,7 

60 itt* 3=0theny=20 ! goto 1 10 

70 C*3y=£0-xto13+x 

80 p=x#40+C*3 

90 poKey+p,[*3JpoKec+p,7 

100 [*3y 

110 p =x *40+y:pokey +p,223ipokec+p,C*3 
120 nextx 

130 forv = lto5:for C*3to6 
140 C * 353280,s:poKe53281,s 
150 tor[*3to£00:nextK 
160 nexts,v!end 


6 



Listato dell'esercizio: 

COMPLETA IL LISTATO (VIC 20) 

10 poKe36879,42 

80 pr irrtchrSK 147) ; C * I =7680 : c =38400 

30 t orx = C *3to 10 

40 [* 3=x*22 + 10-x 

50 poKew+p,S£3:poKec+p ,7 

60 it C * 3 =0theny = 1 1 : goto 1 10 

70 C*3y = 1 1 -xto 10+x 

80 p =x *22 + C * 3 

90 poKeu+p,[*]!poKec+p,7 

100 [* 3y 

110 p=x*22+yipoKev+p,223spoKec+p,1*3 
120 nextx 

130 t orv = lto5 : t or t * 3to6 
140 C * 336879 , s * 17 +8 
150 torI *3to200!nextK 
160 nexts ,u :end 

PROGRAMMIAMO INSIEME (CDM 64) 

10 poKe53£80,7 !poKe53£81,7 
20 pr in-t "gBTlRCHIVIQ FILM" 

100 pr int "S0TITGLO (max 20 car. 3:*!" 

110 1=£0igosub3000:n$=a$:print 

200 pr int "EGREG ISTftCmax 18 car . ) :ZT 

210 1 =18sgosub3000sv$=a$:print 

300 pr int "ECP ISTR . (max 14 car. ):XI" 

310 1=14sgosub3000:c*=a$sprint 
400 pr int "^BPATI INSERITI!*!" 

420 printn$iprintv$!printc$ 

500 end 

3000 1 =1 +1 :s$=" - :a3>=" " :tort=ltol ! s*=s*+"II" ..next-f 

3010 q=l ipr int "B” 1 e-ft*(a$, 1 3 
3020 getz$!ifz$=chr$<13)thenreturn 
3040 i-f <z$="lT 3*<q<l 3then4000 
3050 it <z$="||" 3*<q>l 3then4200 
3060 it(z$=chr*(203 3 * <q > 13then4400 

3070 it(z$=chr$(14833*Cright*Ka$,£ 3 = " "3then4600 

3080 itz$=chr$(34)thenz$=”'" 

3100 it < <z3>>=" ” )t(z$< = "<-" 3 3 + C (z*:>="A" 3*<z$< = "Z " 3 3then3£00 

3120 goto3020 

3200 itq>l-lthen3020 

3400 a$=lett$(a$,q-l 3 +z4>+r ight=l><a4>, 1 -q 3 
:q=q+l!pr intz$”a"mid$(a$,q,13 "ili" i 
3500 goto3020 

4000 q = q+ 1 ipr intmid$ca$,q- 1 , 1 3 "a"mid$<a$,q , 1 3 "*1" ; : goto30£0 
4200 q=q-l ipr int "|OI"mid*>;a*,q , 1 3 "a"mid«<a*,q + 1 , 1 3 "MI"; :goto3020 
4400 printz$”a"mid$<a$,q,13 :q=q-1 : a*=l eft$<a$,q-1 3 

+right$(a$,l-q3+” " 

4420 goto3020 

4600- pr intmidSCa*^ , 1 3 "M 2”z$mida*,q , 1 3 ”IBI" ; 

4620 a$=lett$(a$,q-13 + " " +mid$<a$,q , 1 -q 3 

4640 goto3020 
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PROGRAMMIAMO INSIEME (VIC 20) 

Il listato è identico a quello per il CBM 64, tranne nello lineo: 

10 poKe36379,127 

Soluzione dell'esercizio: 

COMPLETA IL LISTATO CDM 64 

(lez. 27) 

10 poKe53280,6:poKe53281 ,3 
80 n=0sprintchr*<147) 

30 11=84:12=38:x=0:y=l 

40 -forg = lto6 

50 11=11-8:forx=xtox+l1 

60 gosub 150 :nextx 

70 18 = 1 8-8 s-fory=ytoy+12 

80 gosub150:nexty 

90 it g = lthen 1 1=1 1 + 1 

100 11=1l-2!forx=xtox-llstep-1 

110 gosub150:nextx 

180 18 = 12-2:-fory=ytoy-12step-l 

130 gosub150:nexty 

140 nexlg:end 

150 p=x*40+y:poKe55296+p ,2 
160 poKe1024+p,160:return 

Soluzione dell'esercizio: 

COMPLETA IL LISTATO VIC 20 

(lez. 27) 

10 p o K e 36879,68 

20 n =0 s pr intchr 147 ) 

30 11=88:18=80:x=0:y=l 

40 forg=lto5 

50 1 1=1 l-2:-forx=xtox+l 1 

60 gosub150 :nextx 

70 18 = 18-8:-fory=ytoy+12 

80 gosub150snexty 

90 itg = lthenl 1=1 1+1 

100 1 1 =1 1-8 :-f orx =xtox-1 lstep - 1 

110 gosub150snextx 

120 18 = 12-2 : tory=ytoy-18step-1 

130 gosub150snexty 

140 nextg : end 

150 p=x*28+yspoKe38400+p ,2 
160 poKe7680+p,160sreturn 
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